-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1400 (can't peek)
-- protect password hash: 0
-- maximum user level: 3 (painting)
-- window: Rect(x1=48, y1=73, x2=560, y2=415)
-- screen: Rect(x1=0, y1=0, x2=640, y2=480)
-- card dimensions: w=512 h=342
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2744
-- card count: 2
-- first card id: 3003
-- list block id: 2057
-- print block id: 0
-- font table block id: 3378
-- style table block id: 3090
-- free block count: 2
-- free size: 18464 bytes
-- total size: 49152 bytes
-- stack block size: 3072 bytes
-- created by hypercard version: 0x02108000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xD9EAE7C1
----- HyperTalk script -----
on openStack
  lock screen
  put 2 into x
  repeat 53
    set textFont of button id x to "Geneva"
    set textStyle of button id x to "Bold"
    put x into y
    put y + 1 into x
  end repeat
  set textFont of button id 57 to "Geneva"
  set textStyle of button id 57 to "Bold"
  set textFont of button id 59 to "Geneva"
  set textStyle of button id 59 to "Bold"
  create menu "Home"
  create menu "About HyperTyper"
  delete menu "Go"
  maketyperMenu
  global keYs, lockIt, saveLev
  put false into lockIt
  put false into keYs
  put userlevel into saveLev
  unlock screen
end openStack


on maketyperMenu
  put "Tell Me..." into typerMenu
  put "aboutHyperTyper" into typerMsgs
  put typerMenu into menu "About HyperTyper" with menuMessages typerMsgs
  put "Go There" into transportMenu
  put "gothere" into transportMsgs
  put transportMenu into menu "Home" with menuMessages transportMsgs
  set userlevel to 2
end maketyperMenu

on aboutHyperTyper
  visual effect iris open
  domenu "Last"
end aboutHyperTyper

on gothere
  go home
end gothere

on closeStack
  global saveLev
  go to first card
  domenu "Compact Stack"
  reset menubar
  if saveLev is a number then set userlevel to saveLev
end closeStack